home *** CD-ROM | disk | FTP | other *** search
- proc main
- local 0,000020,line
- local 1,000020,tree
- local 2,000000,read
- local 3,000000,tform
- local 4,000000,write
- local 5,000000,walk
- local 6,000000,leaves
- con 0,010000,9,164,162,145,145,040,167,141,154,153
- con 1,010000,6,154,145,141,166,145,163
- declend
- filen btrees.icn
- line 11
- mark L1
- lab L2
- mark0
- pnull
- var 0
- var 2
- pnull
- line 13
- invoke 1
- asgn
- unmark
- mark L2
- mark L5
- pnull
- var 1
- var 3
- var 0
- line 14
- invoke 1
- asgn
- unmark
- lab L5
- mark L6
- var 4
- str 0
- line 15
- invoke 1
- unmark
- lab L6
- mark L7
- mark0
- var 4
- var 5
- var 1
- line 16
- invoke 1
- invoke 1
- pop
- lab L8
- efail
- lab L9
- unmark
- lab L7
- mark L10
- var 4
- str 1
- line 17
- invoke 1
- unmark
- lab L10
- mark0
- var 4
- var 6
- var 1
- line 18
- invoke 1
- invoke 1
- pop
- lab L11
- efail
- lab L12
- lab L3
- unmark
- goto L2
- lab L4
- unmark
- lab L1
- pnull
- line 20
- pfail
- end
- proc tform
- local 0,001000,s
- local 1,000020,value
- local 2,000020,left
- local 3,000020,right
- local 4,000000,tab
- local 5,000000,upto
- local 6,000000,move
- local 7,000000,bal
- local 8,000000,node
- local 9,000000,tform
- con 0,020000,1,050
- con 1,002000,1,1
- con 2,020000,1,054
- con 3,020000,1,051
- declend
- line 22
- mark L1
- mark0
- pnull
- var 0
- line 24
- null
- unmark
- mark L2
- pnull
- pret
- lab L2
- pfail
- unmark
- lab L1
- mark L3
- var 0
- line 25
- bscan
- mark L4
- pnull
- var 1
- var 4
- var 5
- cset 0
- invoke 1
- invoke 1
- asgn
- unmark
- mark L6
- var 6
- int 1
- line 26
- invoke 1
- unmark
- lab L6
- mark L7
- pnull
- var 2
- var 4
- var 7
- cset 2
- line 27
- invoke 1
- invoke 1
- asgn
- unmark
- lab L7
- mark L8
- var 6
- int 1
- line 28
- invoke 1
- unmark
- lab L8
- mark L9
- pnull
- var 3
- var 4
- var 7
- cset 3
- line 29
- invoke 1
- invoke 1
- asgn
- unmark
- lab L9
- mark L10
- var 8
- var 1
- var 9
- var 2
- line 30
- invoke 1
- var 9
- var 3
- invoke 1
- invoke 3
- pret
- lab L10
- pfail
- goto L5
- lab L4
- mark L11
- var 8
- var 0
- line 32
- invoke 1
- pret
- lab L11
- pfail
- lab L5
- line 25
- escan
- unmark
- lab L3
- pnull
- line 33
- pfail
- end
- proc walk
- local 0,001000,t
- local 1,000000,walk
- declend
- line 35
- mark L1
- mark0
- var 1
- mark L4
- pnull
- pnull
- var 0
- line 36
- field ltree
- nonnull
- esusp
- goto L5
- lab L4
- pnull
- pnull
- var 0
- field rtree
- nonnull
- lab L5
- invoke 1
- psusp
- pop
- lab L2
- efail
- lab L3
- unmark
- lab L1
- mark L6
- mark L7
- pnull
- var 0
- line 37
- field data
- pret
- lab L7
- pfail
- unmark
- lab L6
- pnull
- line 38
- pfail
- end
- proc leaves
- local 0,001000,t
- local 1,000000,leaves
- declend
- line 40
- mark L1
- mark0
- mark L2
- mark L3
- pnull
- pnull
- var 0
- line 41
- field ltree
- nonnull
- esusp
- goto L4
- lab L3
- pnull
- pnull
- var 0
- field rtree
- nonnull
- lab L4
- unmark
- efail
- lab L2
- pnull
- unmark
- mark L5
- pnull
- var 0
- field data
- pret
- lab L5
- pfail
- unmark
- lab L1
- mark L6
- mark0
- var 1
- mark L9
- pnull
- pnull
- var 0
- line 42
- field ltree
- nonnull
- esusp
- goto L10
- lab L9
- pnull
- pnull
- var 0
- field rtree
- nonnull
- lab L10
- invoke 1
- psusp
- pop
- lab L7
- efail
- lab L8
- unmark
- lab L6
- pnull
- line 43
- pfail
- end
-